unit U_AbreFechaCaixa;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolEdit, CurrEdit, StdCtrls, Mask, RxLookup, Buttons;

type
  TF_AbreFechaCaixa = class(TForm)
    E_Vendedor: TRxLookupEdit;
    E_Cupom: TRxCalcEdit;
    E_Cancelamentos: TEdit;
    E_Hora: TEdit;
    E_Caixa: TRxCalcEdit;
    E_Loja: TRxCalcEdit;
    E_ValorAbertura: TCurrencyEdit;
    E_Dinheiro: TCurrencyEdit;
    E_Cheque: TCurrencyEdit;
    E_ChequePre: TCurrencyEdit;
    E_ValeTichet: TCurrencyEdit;
    E_Cartao: TCurrencyEdit;
    E_Boleto: TCurrencyEdit;
    E_GrandeTotal: TCurrencyEdit;
    E_Data: TDateEdit;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure GravaAbreFechaCaixa;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_AbreFechaCaixa: TF_AbreFechaCaixa;

implementation

uses U_menu, U_Dm_local, uFunRede, DB;

{$R *.dfm}

procedure TF_AbreFechaCaixa.FormShow(Sender: TObject);
begin
  if Menu_Retaguarda.vChamaForm='ABRECAIXA' then
    Caption:='Abertura do Caixa';
  if Menu_Retaguarda.vChamaForm='FECHACAIXA' then
    Caption:='Fechamento do Caixa';
  E_Data.Date:=now;
  E_Hora.Text:=TimeToStr(now);
  

end;

procedure TF_AbreFechaCaixa.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
  F_AbreFechaCaixa:=nil;
end;

procedure TF_AbreFechaCaixa.GravaAbreFechaCaixa;
var cod:Integer;
begin
{ if not Dm_Local.Tbl_AbreCaixa.Active then
   Dm_Local.Tbl_AbreCaixa.Active:=TRUE;

  Cod :=Dm_Local.Tbl_AbreCaixa.RecordCount+1;

  Registro('I','N',Dm_Local.Tbl_AbreCaixa);
  Dm_Local.Tbl_AbreCaixaCupom.AsString:=IntToStr(cod);//E_Cupom.Text;
  Dm_Local.Tbl_AbreCaixaCancelamentos.AsString:=E_Cancelamentos.Text;
  Dm_Local.Tbl_AbreCaixaCaixa.AsString:=E_Caixa.Text;
  Dm_Local.Tbl_AbreCaixaLoja.AsString:=E_Loja.Text;
  Dm_Local.Tbl_AbreCaixaVendedor.AsString:=E_Vendedor.Text;
  Dm_Local.Tbl_AbreCaixaValorAbertura.Value:=E_ValorAbertura.Value;
  Dm_Local.Tbl_AbreCaixaDinheiro.value:=E_Dinheiro.value;
  Dm_Local.Tbl_AbreCaixaCheque.value:=E_Cheque.value;
  Dm_Local.Tbl_AbreCaixaChequePre.value:=E_ChequePre.value;
  Dm_Local.Tbl_AbreCaixaValeTichet.value:=E_ValeTichet.value;
  Dm_Local.Tbl_AbreCaixaCartao.value:=E_Cartao.value;
  Dm_Local.Tbl_AbreCaixaBoleto.value:=E_Boleto.value;
  Dm_Local.Tbl_AbreCaixaGrandeTotal.value:=E_GrandeTotal.value;
  Dm_Local.Tbl_AbreCaixaData.AsString:=E_Data.Text;
  Dm_Local.Tbl_AbreCaixaHora.AsString:=E_Hora.Text;

  Dm_Local.Tbl_AbreCaixa.Post;}
end;

procedure TF_AbreFechaCaixa.BitBtn1Click(Sender: TObject);
begin
  //GravaAbreFechaCaixa;
end;

end.
